www.gusucode.com > 网域标准通用企业自助建站系统正式版 2009 > 网域标准通用企业自助建站系统正式版 2009.18/网域公司企业网站管理系统ACCESS和SQL正式版/网域公司企业网站管理系统SQL正式版/Inc/conn.asp

    <%
Dim SqlDatabaseName,SqlPassword,SqlUsername,SqlLocalName,ConnStr,Conn
		SqlDatabaseName = "wygkcnsql"      'SQL数据库名
		SqlPassword = "123456"              'SQL数据库用户密码
		SqlUsername = "sa"               'SQL数据库用户名     
		SqlLocalName = "(local)"    'SQL主机IP地址（本地可用“127.0.0.1”或“(local)”，非本机请用真实IP）
		ConnStr = "Provider = Sqloledb; User ID = " & SqlUsername & "; Password = " & SqlPassword & "; Initial Catalog = " & SqlDatabaseName & "; Data Source = " & SqlLocalName & ";"
		Set conn = Server.CreateObject("ADODB.Connection")
	    conn.open ConnStr
	
 sub CloseConn()
	conn.close
	set conn=nothing
 end sub
%>